home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / pct1-b.zip / SUBTEMP1.ASM < prev    next >
Assembly Source File  |  1989-11-02  |  3KB  |  100 lines
  1.  
  2. INCLUDE      \pushregs.mac
  3.  
  4. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  5. STACKSEG    SEGMENT   STACK  'STACK'
  6.  
  7.              dw     500h  dup (?)
  8.  
  9. STACKSEG    ENDS
  10. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  11. DATASTUFF    SEGMENT   PUBLIC  'DATA'
  12.  
  13.        ; 1 = signed, 2 = unsigned, 3 = binary
  14.        ; 4 = hex, 5 = ascii 
  15.        ; 90h = signed, A0h = unsigned, B0h = binary
  16.        ; C0h = hex, D0h = ascii 
  17.  
  18.        PUBLIC ax_byte, bx_byte, cx_byte, dx_byte
  19.        PUBLIC si_byte, di_byte, bp_byte, sp_byte
  20.  
  21. ax_byte      db  2
  22. bx_byte      db  2
  23. cx_byte      db  2
  24. dx_byte      db  2
  25. si_byte      db  2
  26. di_byte      db  2
  27. bp_byte      db  2
  28. sp_byte      db  2
  29.  
  30. ; + + + + + + + + + + + + + + + START DATA BELOW THIS LINE
  31.  
  32. ; + + + + + + + + + + + + + + + END DATA ABOVE THIS LINE
  33.  
  34. DATASTUFF    ENDS
  35. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  36. CODESTUFF    SEGMENT   PUBLIC  'CODE'
  37.  
  38.        ; **************  ASMHELP.OBJ  INFO
  39.  
  40.        EXTRN  show_regs:NEAR , show_regs_and_wait:NEAR
  41.        EXTRN  set_reg_style:NEAR , set_count:NEAR
  42.        EXTRN  set_blue:NEAR , get_continue:NEAR
  43.        
  44.        EXTRN  get_num:NEAR ,            print_num:NEAR 
  45.        EXTRN  get_string:NEAR ,         print_string:NEAR
  46.        EXTRN  get_ascii_byte:NEAR  ,    print_ascii_byte:NEAR
  47.        EXTRN  get_ascii:NEAR  ,         print_ascii:NEAR
  48.        EXTRN  get_hex_byte:NEAR ,       print_hex_byte:NEAR
  49.        EXTRN  get_hex:NEAR ,            print_hex:NEAR 
  50.        EXTRN  get_binary_byte:NEAR ,    print_binary_byte:NEAR
  51.        EXTRN  get_binary:NEAR ,         print_binary:NEAR
  52.        EXTRN  get_bcd:NEAR   ,          print_bcd:NEAR
  53.        
  54.        EXTRN  get_signed_byte:NEAR ,    print_signed_byte:NEAR
  55.        EXTRN  get_unsigned_byte:NEAR ,  print_unsigned_byte:NEAR
  56.        EXTRN  get_signed:NEAR ,         print_signed:NEAR
  57.        EXTRN  get_unsigned:NEAR ,       print_unsigned:NEAR 
  58.        EXTRN  get_signed_4byte:NEAR ,   print_signed_4byte:NEAR
  59.        EXTRN  get_unsigned_4byte:NEAR , print_unsigned_4byte:NEAR
  60.        EXTRN  get_signed_8byte:NEAR ,   print_signed_8byte:NEAR
  61.        EXTRN  get_unsigned_8byte:NEAR , print_unsigned_8byte:NEAR
  62.  
  63.        ; **************  END ASMHELP.OBJ  INFO
  64.           
  65.        ASSUME cs:CODESTUFF, ds:DATASTUFF
  66.  
  67. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  68.  
  69. main   proc far
  70. start: push  ds               ; set up for return
  71.        sub   ax,ax
  72.        push  ax
  73.  
  74.        mov   ax, DATASTUFF
  75.        mov   ds,ax
  76.  
  77. ; + + + + + + + + + + + + + + + START CODE BELOW THIS LINE
  78.  
  79. ; + + + + + + + + + + + + + + + END CODE ABOVE THIS LINE
  80.  
  81.        ret
  82.  
  83. main   endp
  84. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  85.  
  86.        ; If you call one of these subroutines from a 
  87.        ; different file, it must be declared with a
  88.        ; PUBLIC statement. If you call a subroutine in a 
  89.        ; different file, it must be declared with an
  90.        ; EXTRN statement.
  91.  
  92. ; + + + + + + + + + + + + START SUBROUTINES BELOW THIS LINE
  93.  
  94. ; + + + + + + + + + + + + END SUBROUTINES ABOVE THIS LINE
  95.  
  96. CODESTUFF    ENDS
  97. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  98.        END     start
  99.  
  100.